1 GOTO 8 5 IFPEEK(49152)<>120ORPEEK(51200)<>76ORPEEK(52016)<>32THEN7 6 IFPEEK(52080)=173ANDPEEK(52176)=169THEN8 7 LOAD"ROUTINES",8,1 8 POKEV+33,1:Q$=CHR$(34):VT$="":DIMVT$(25) 9 FORI=.TO25:VT$(I)=LEFT$(VT$,I+1):NEXT:VT$="" 10 R=53265:C=128:V=53248:S=V+1024:LI=52016:WI=51200:CL=51203:SU=51206:SD=51209 12 POKES+23,.:POKES+4,128 15 GOSUB1000:PRINT" [215]ELCOME TO THE SECOND INSTALLMENT" 16 PRINT"OF [204]OADSTAR'S [195][207][205][193][204][160]0.14 [212]UTORIAL. [201]N 17 [153]"THE FIRST INSTALLMENT, YOU ENTERED AND 18 PRINT"RAN A SHORT [195][207][205][193][204][160]PROGRAM TO CONVERT 19 [153]"DEGREES ASCARENHEIT INTO DEGREES LENELSIUS 20 PRINT"WITHOUT UNDERSTANDING HOW THE PROGRAM 21 [153]"WORKED. ATNT THE TIME, WE WERE CONCEN- 22 PRINT"TRATING MORE ON PROGRAM ENTRY. 23 [153]" (null)OW THAT WE HAVE THE PROGRAM IN THE 24 PRINT"64'S MEMORY, LET'S SEE HOW IT WORKS. 25 S%[178][171]1:[141]1200 26 [153]" (null)E WILL ASSUME THAT THE COMPUTER IS 27 PRINT"JUST AS WE LEFT IT. [204][201][211][212][160]THE PROGRAM 28 [153]"TO BE SURE IT IS STILL THERE: 30 GOSUB1160:GOSUB1300:X%=.:Y%=16:A$="[204][201][211][212]":GOSUB1600 31 IFETHENA$=MID$(A$,E):E=.:GOSUB1605:GOTO31 32 X%=4:Y%=16:GOSUB1500:IFK$<>CHR$(13)THEN32 33 PRINT:PRINT"0010 [201][206][208][213][212] "Q$"[196][197][199][210][197][197][211] [198]? "Q$": [198][193][210][197][206][200][197][201][212] 34 [153]"0020 LENVAL(null)(null)RIGHT$(null)(null):=(ASCATN(null)VAL(null)LEFT$VALRIGHT$(null)-32)*(5/9) 35 PRINT"0030 [208][210][201][206][212] [198][193][210][197][206][200][197][201][212];"Q$"[198] ="Q$";[195][197][204][211][201][213][211];"Q$"[195]"Q$" 36 [141]1150:[153]"STOP (null)EP, STILL THERE! MID$UST FOR PRAC- 37 PRINT"TICE, [210][213][206][160]THE PROGRAM AND FIND OUT HOW 38 [153]"MANY DEGREES LENELSIUS -40 DEGREES " 39 [153]"ASCARENHEIT CONVERTS INTO: 40 GOSUB1160:X%=.:Y%=21:A$="[210][213][206]":GOSUB1600 41 IFETHENA$=MID$(A$,E):E=.:GOSUB1605:GOTO41 42 X%=3:Y%=21:GOSUB1500:IFK$<>CHR$(13)THEN42 43 PRINT:PRINT"[196][197][199][210][197][197][211] [198]? ";: 45 X%=11:Y%=22:A$="-40":GOSUB1600 46 IFETHENA$=MID$(A$,E):E=.:GOSUB1605:GOTO46 47 X%=14:Y%=22 48 GOSUB1500:IFK$<>CHR$(13)THEN48 49 PRINT:PRINT"-40 [198] = -40 [195]":GOSUB1700 50 GOSUB1035:GOSUB1150:PRINT"[144][146] [211]O -40 DEGREES IS THE 'MEETING 51 [153]"PLACE' FOR THE TWO TEMPERATURE SCALES!":[141]1205 55 [153]" (null)ET'S TRY ONE MORE. (null)INCE 72 " 56 [153]"DEGREES ASCARENHEIT IS CONSIDERED THE " 57 [153]"MOST COMFORTABLE TEMPERATURE FOR US 58 PRINT"HUMAN BEINGS, LET'S TRY TO FIND THE 59 [153]"LENELSIUS EQUIVILANT OF 72 DEGREES ASC: 60 GOSUB1160:GOSUB1300:X%=.:Y%=24:A$="[210][213][206]":GOSUB1600 61 IFETHENA$=MID$(A$,E):E=.:GOSUB1605:GOTO61 62 X%=3:Y%=24 63 GOSUB1500:IFK$<>CHR$(13)THEN63 64 GOSUB1700:PRINT"[196][197][199][210][197][197][211] [198]? "; 65 X%=11:Y%=24:A$="72":GOSUB1600 66 IFETHENA$=MID$(A$,E):E=.:GOSUB1605:GOTO66 67 X%=13:Y%=24 68 GOSUB1500:IFK$<>CHR$(13)THEN244 69 GOSUB1700:PRINT" 72 [198] = 22.2222222 [195]";:GOSUB1700:GOSUB1700:PRINT"[145]" 70 GOSUB1035:GOSUB1150:PRINT"[144][146] [211]O WHEN IT'S AROUND 22 [195]ELSIUS" 71 PRINT"OUTDOORS, IT'S QUITE COMFORTABLE. 72 [153]" LEFT$OW DOES THIS PROGRAM WORK? RIGHT$N " 73 [153]"ORDER TO ANSWER THAT, WE MUST BE ABLE" 74 [153]"TO SEE OUR PROGRAM. 75 GOSUB1205 76 PRINT" [201]N ORDER TO DO [212][200][193][212], WE MUST [204][201][211][212] 77 [153]"THE PROGRAM AGAIN. (PEEKET YOU'D (null)VAL(null)VAL(null) 78 PRINT"HAVE GUESSED!) [193]NYWAY, GO AHEAD AND 79 [153]"(null)RIGHT$(null)(null)CLOSETHE PROGRAM AGAIN: 80 GOSUB1160:GOSUB1300:X%=.:Y%=24:A$="[204][201][211][212]":GOSUB1600 81 IFETHENA$=MID$(A$,E):E=.:GOSUB1605:GOTO81 82 X%=4:Y%=24:GOSUB1500:IFK$<>CHR$(13)THEN82 83 GOSUB1700:PRINT"0010 [201][206][208][213][212] "Q$"[196][197][199][210][197][197][211] [198]? "Q$": [198][193][210][197][206][200][197][201][212]"; 84 GOSUB1700:PRINT"0020 [195][197][204][211][201][213][211]:=([198][193][210][197][206][200][197][201][212]-32)*(5/9)";:GOSUB1700 85 PRINT"0030 [208][210][201][206][212] [198][193][210][197][206][200][197][201][212];"Q$"[198] ="Q$";[195][197][204][211][201][213][211];"Q$"[195]"Q$;:GOSUB1700:GOSUB1700 86 GOSUB1035:GOSUB1150:PRINT"[144] [212]HE FIRST LINE, LINE 10 (IGNORE THE 87 [153]"LEADING ZEROES FOR NOW), IS AN RIGHT$(null)(null)(null)(null) 88 PRINT"STATEMENT. [193]N [201][206][208][213][212][160]STATEMENT'S " 89 PRINT"PURPOSE IS TO [201][206][208][213][212] VALUES INTO THE " 90 PRINT"PROGRAM FROM THE OUTSIDE WORLD, " 91 PRINT"USUALLY FROM THE USER VIA THE":PRINT"KEYBOARD.":GOSUB1205 92 PRINT"[201]T MUST [193][204][215][193][217][211] HAVE A 'VARIABLE' THAT" 93 PRINT"IS SIMPLY A NAME GIVEN TO THE " 94 PRINT"[201][206][208][213][212]TED DATA (IN THIS CASE, THE " 95 PRINT"VARIABLE IS NAMED '[198][193][210][197][206][200][197][201][212]'). [193] " 96 PRINT"VARIABLE NAME MAY CONSIST OF ANY " 97 PRINT"NUMBER OF LETTERS OR DIGITS, SO LONG" 98 PRINT"AS THE FIRST CHARACTER IS A LETTER.":PRINT"[193]POSTROPHES"; 99 PRINT" AND LEFT-ARROW CHARACTERS":PRINT"ARE LEGAL AS WELL." 100 PRINT"[212]HE VARIABLE NAMED IN THE [201][206][208][213][212]" 101 PRINT"STATEMENT RECEIVES AS ITS VALUE THE" 102 PRINT"VALUE 'KEYED-IN' BY THE USER.":GOSUB1200 105 PRINT" [212]HIS SIMPLY MEANS THAT THE [201][206][208][213][212] 106 [153]"STATEMENT DISPLAYS THE MESSAGE BETWEEN 107 PRINT"THE DOUBLE-QUOTE SYMBOLS, SUSPENDS THE 108 [153]"EXECUTION OF THE PROGRAM, AND WAITS 109 PRINT"FOR THE USER TO TYPE IN SOMETHING AND 110 [153]"HIT THE (null)VAL(null)(null)(null)(null) KEY. RIGHT$F THAT SOMETHING 111 PRINT"IS A LEGAL NUMBER, THE VARIABLE (IN 112 [153]"THIS CASE, ASCATN(null)VAL(null)LEFT$VALRIGHT$(null)) RECEIVES AS ITS 113 PRINT"VALUE THE NUMBER. [212]HIS MEANS THAT, 114 [153]"FROM NOW ON, WHENEVER LEN(null)(null)ATN(null)CLOSEENCOUNTERS 115 PRINT"THE WORD [198][193][210][197][206][200][197][201][212][160]WITHIN THE PROGRAM, 116 [153]"IT WILL SUBSTITUTE THE VALUE TYPED IN!":[141]1200 120 [153]" (null)HE 'PROMPT STRING' IS OPTIONAL IN 121 PRINT"AN [201][206][208][213][212][160]STATEMENT. [201]F NO PROMPT IS 122 [153]"SPECIFIED, LEN(null)(null)ATN(null)CLOSEDISPLAYS A SIMPLE '?' 123 PRINT"(QUESTION MARK) TO LET THE USER KNOW 124 [153]"THAT A RESPONSE IS REQUESTED FROM HIM. 125 PRINT" [204]INE 20 (0020) IS AN EXAMPLE OF AN 126 [153]"'ASSIGNMENT' STATEMENT. ATNN ASSIGNMENT 127 PRINT"STATEMENT IS USED TO ASSIGN A VALUE TO" 128 PRINT"A VARIABLE. [193]N ASSIGNMENT STATEMENT" 129 PRINT"GETS ITS VALUE FOR THE VARIABLE FROM" 130 PRINT"AN EXPRESSION." :GOSUB1200 131 : 132 : 133 PRINT" [193]N 'EXPRESSION' CAN BE A [195][207][206][211][212][193][206][212]," 134 PRINT"(SUCH AS 5 OR 18.9), ANOTHER VARIABLE," 135 PRINT"OR A COMBINATION OF CONSTANTS AND/OR" 136 PRINT"VARIABLES SEPARATED BY [207][208][197][210][193][212][207][210][211]." 137 PRINT"[207]PERATORS REPRESENT MATHEMATICAL" 139 PRINT"OPERATIONS SUCH AS '+' FOR ADDITION," 140 PRINT"'-' FOR SUBTRACTION, '*' FOR" 141 PRINT"MULTIPLICATION, OR '/' FOR DIVISION.)":GOSUB1200 145 PRINT" [204]ET'S TAKE A CLOSER LOOK AT LINE 146 [153]"0020. 'LENVAL(null)(null)RIGHT$(null)(null)' IS A VARIABLE, LIKE 147 PRINT"'[198][193][210][197][206][200][197][201][212]'. [201]T IS THE 'DESTINATION' 148 [153]"VARIABLE, THE VARIABLE WHICH WILL" 149 [153]"RECEIVE THE VALUE. (null)HE TWO SYMBOLS" 150 [153]"AFTER IT (':=') FORM THE 'ASSIGNMENT" 151 [153]"OPERATOR', WHICH INDEED IS WHAT TELLS" 152 [153]"US (AND LEN(null)(null)ATN(null)) THAT THIS IS AN" 153 [153]"ASSIGNMENT STATEMENT! 154 PRINT" [212]HE REMAINDER OF THE LINE IS THE" 155 PRINT"ACTUAL EXPRESSION.":GOSUB1200 156 PRINT" [212]HE EXPRESSION, IN THIS CASE, IS" 157 PRINT"'([198][193][210][197][206][200][197][201][212]-32)*(5/9)'. [212]HE PARENTHE- 158 [153]"SES ARE USED TO DETERMINE WHAT TO" 159 [153]"CALCULATE FIRST. RIGHT$N THIS CASE, '(5/9)' 160 PRINT"IS COMPUTED FIRST, AND THE RESULT OF 161 [153]"'.555555556' IS HELD IN MEMORY. (null)HEN, 162 PRINT"32 IS SUBTRACTED FROM THE CURRENT" 163 PRINT"VALUE OF THE VARIABLE '[198][193][210][197][206][200][197][201][212]', " 164 PRINT"WHICH IS THE NUMBER THE USER TYPED IN." 165 PRINT"[198]INALLY, THE TWO RESULTING NUMBERS ARE" 166 PRINT"MULTIPLIED, AND THE FINAL RESULT" 167 PRINT"BECOMES THE VALUE '[195][197][204][211][201][213][211]'.":GOSUB1200 170 PRINT" [204]INE 30 IS A '[208][210][201][206][212]' STATEMENT. [193]S 171 [153]"YOU COULD PROBABLY GUESS, ITS FUNCTION 172 PRINT"IS TO PRINT SOMETHING TO THE SCREEN. 173 [153]"(null)HE (null)(null)RIGHT$(null)(null)CLOSESTATEMENT CAN PRINT THE" 174 [153]"VALUE OF ZERO OR MORE EXPRESSIONS, " 175 [153]"EACH SEPARATED BY A (null)(null)RIGHT$(null)(null)CLOSESEPARATOR." 176 [153]"ATN (null)(null)RIGHT$(null)(null) SEPARATOR IS EITHER A COMMA OR 177 PRINT"A SEMICOLON (';'). [212]HE SEMICOLON 178 [153]"CAUSES A SINGLE SPACE TO SEPARATE THE 179 PRINT"VALUES WHEN '[208][210][201][206][212]ED'. [215]E'LL SAVE THE 180 [153]"COMMA FOR LATER.":[141]1200 181 [153]" (null)OTICE THAT RIGHT$CLOSESAID '(null)VAL(null)(null) OR MORE 182 PRINT"EXPRESSIONS'. [201]F THE WORD [208][210][201][206][212]" 183 PRINT"APPEARS BY ITSELF ON A LINE, NOTHING " 184 PRINT"IS [208][210][201][206][212]ED! [207]NLY A BLANK LINE APPEARS" 185 PRINT"ON THE SCREEN. [212]HIS IS ONE WAY TO PUT" 186 PRINT"BLANK LINES ON THE SCREEN AS VERTICAL" 187 PRINT"SEPARATORS." 188 PRINT" [193]N EXPRESSION IN A [208][210][201][206][212][160]STATEMENT 189 [153]"CAN BE A STRING OF ALMOST ANY CHARAC-" 190 [153]"TERS, SET OFF BY DOUBLE-QUOTE MARKS.":[141]1200 191 [153]"(null)HE DOUBLE-QUOTE MARK IS THE ONLY" 192 [153]"VISABLE CHARACTER THAT CAN'T BE IN" 193 [153]"SUCH A STRING. (null)HESE CHARACTERS ARE" 194 [153]"DISPLAYED 'AS IS' ON THE SCREEN. 195 PRINT" [212]HE [208][210][201][206][212] STATEMENT IN LINE 30 " 196 PRINT"PRINTS THE [201][206][208][213][212]TED VALUE OF THE" 197 PRINT"VARIABLE [198][193][210][197][206][200][197][201][212], A SPACE (';'), THE 198 [153]"CHARACTERS 'ASC =', ANOTHER SPACE, THE 199 PRINT"CALCULATED VALUE OF THE VARIABLE" 200 PRINT"[195][197][204][211][201][213][211], YET ANOTHER SPACE, AND THE" 201 PRINT"CHARACTER '[195]'.":GOSUB1200 205 PRINT" [212]HAT'S IT! [212]HAT'S HOW YOUR FIRST 206 [153]"LEN(null)(null)ATN(null)CLOSEPROGRAM WORKS! 3 SIMPLE LITTLE 207 PRINT"STATEMENTS: 208 [153]"10. ATNN RIGHT$(null)(null)(null)(null)CLOSESTATEMENT TO ASK THE 209 PRINT" USER FOR A VALUE AND ASSIGN IT 210 [153]" TO THE VARIABLE ASCATN(null)VAL(null)LEFT$VALRIGHT$(null), 211 PRINT"20. [193]N ASSIGNMENT STATEMENT TO" 212 PRINT" COMPUTE THE RESULT BASED ON THE 213 [153]" VALUE OF ASCATN(null)VAL(null)LEFT$VALRIGHT$(null) AND ASSIGN 214 PRINT" SAID RESULT TO [195][197][204][211][201][213][211]":GOSUB1200 215 PRINT"30. [193] [208][210][201][206][212][160]STATEMENT TO DISPLAY 216 [153]" THE RESULTS! 217 PRINT" [206]OW FOR A LITTLE QUIZ!!" 219 PRINT" [197]ACH QUESTION WILL BE EITHER A 220 [153]"(null)RUE/ASCALSE OR A (null)ULTIPLE LENHOICE " 221 [153]"QUESTION. (null)IMPLY CHOOSE YOUR CORRECT " 222 [153]"ANSWER FROM THE LEGAL ANSWERS AND" 223 [153]"PRESS THE KEY ASSOCIATED WITH YOUR " 224 [153]"CHOICE. (null)EGAL KEYS TO PRESS WILL BE" 225 [153]"DISPLAYED IN  REVERSE WAIT TYPE ON THE":[153]"SCREEN.":[141]1200 226 [153]"1. (null)O OBTAIN A VALUE FROM THE USER, 227 PRINT" A PROGRAM SHOULD EXECUTE: 228 [153]"  ATN WAIT AN ASSIGNMENT STATEMENT. 229 PRINT"  [194] [146] AN [201][206][208][213][212][160]STATEMENT. 230 [153]"  LEN WAIT A (null)(null)RIGHT$(null)(null)CLOSESTATEMENT. 231 PRINT"  [196] [146] THE PROGRAMMER. 232 [141]1300:A$[178]"PEEK":W1$[178]"ATN":W2$[178]"LEN":W3$[178]"STR$":[141]1800 233 [153]"(null)OU USE AN RIGHT$(null)(null)(null)(null) STATEMENT" 234 [153]"TO OBTAIN VARIABLE VALUES FROM 235 PRINT"THE USER.":GOSUB1205 240 PRINT"2. [201]N ORDER TO DISPLAY MESSAGES AND/ 241 [153]"OR VARIABLE/EXPRESSION VALUES, THE 242 PRINT"PROGRAM WOULD NEED TO EXECUTE: 243 [153]"  ATN WAIT AN ASSIGNMENT STATEMENT. 244 PRINT"  [194] [146] AN [201][206][208][213][212][160]STATEMENT. 245 [153]"  LEN WAIT A (null)(null)RIGHT$(null)(null) STATEMENT. 246 PRINT"  [196] [146] THE USER. 247 [141]1300:A$[178]"LEN":W2$[178]"PEEK":[141]1800 248 [153]"(null)OU USE A (null)(null)RIGHT$(null)(null)CLOSESTATEMENT 249 PRINT"TO OUTPUT ANYTHING EXCEPT THE PROMPT 250 [153]"PART OF AN RIGHT$(null)(null)(null)(null) STATEMENT!":[141]1205 255 [153]"3. (null)O GET A NEW VALUE FOR A " 256 [153]"VARIABLE WITHOUT ASKING THE USER FOR" 257 [153]"ONE, YOU MUST EXECUTE: 258 PRINT"  [193] [146] AN ASSIGNMENT STATEMENT. 259 [153]"  PEEK WAIT AN RIGHT$(null)(null)(null)(null)CLOSESTATEMENT. 260 PRINT"  [195] [146] A [208][210][201][206][212][160]STATEMENT. 261 [153]"  STR$ WAIT THE EDITORS OF (null)(null)ATNSTR$(null)(null)ATN(null). 262 GOSUB1300:A$="[193]":W1$="[195]":GOSUB1800 263 PRINT"[193]N ASSIGNMENT[160]STATEMENT 264 [153]"IS USED TO ASSIGN A VALUE TO A " 265 [153]"VARIABLE. (null)AID VALUE MAY BE COMPUTED.":[141]1205 270 [153]"4. RIGHT$N AN ASSIGNMENT STATEMENT, THE 271 PRINT"PART AFTER THE '=', WHICH SPECIFIES 272 [153]"THE VALUE TO BE ASSIGNED, IS CALLED: 273 PRINT"  [193] [146] AN OPERATOR. 274 [153]"  PEEK WAIT AN OPERAND. 275 PRINT"  [195] [146] AN OPERATION. 276 [153]"  STR$ WAIT AN EXPRESSION. 277 GOSUB1300:A$="[196]":W3$="[193]":GOSUB1800 278 PRINT"[193]N ASSIGNMENT STATEMENT 279 [153]"ASSIGNS THE VALUE OF AN EXPRESSION TO 280 PRINT"A VARIABLE.":GOSUB1205 285 PRINT"5. [193] SYMBOL DENOTING AN ARITHMETIC 286 [153]"OPERATION IN AN EXPRESSION, SUCH AS 287 PRINT"'*' FOR MULTIPLICATION, IS CALLED: 288 [153]"  ATN WAIT AN OPERATOR. 289 PRINT"  [194] [146] AN OPERAND. 290 [153]"  LEN WAIT AN OPERATION. 291 PRINT"  [196] [146] AN EXPRESSION. 292 [141]1300:A$[178]"ATN":W3$[178]"STR$":[141]1800 293 [153]"'+', '-', '*' AND '/' ARE 294 PRINT"ALL LEGAL OPERATORS, BUT THEY AREN'T 295 [153]"THE ONLY ONES!":[141]1205 300 [153]"6. ATN NAME WHICH STANDS FOR A VALUE 301 PRINT"WHICH MAY VARY WITHIN A PROGRAM IS 302 [153]"CALLED A VARIABLE. 303 PRINT"  [212] [146]RUE, OR  [198] [146]ALSE? 304 [141]1300:A$[178]"(null)":W1$[178]"ASC":W2$[178]"ASC":W3$[178]"ASC":[141]1800 305 [153]"ATN VARIABLE IS ONE OF 306 PRINT"SEVERAL [195][207][205][193][204] ITEMS WHICH MAY HAVE A 307 [153]"NAME.":[141]1205 350 [153]" (null)HAT IS ALL FOR THIS ISSUE. (null)F THE 351 PRINT"6 QUESTIONS IN OUR LITTLE QUIZ, YOU 352 [153]"ANSWERED"SC%"CORRECTLY. 353 IFSC%<6THEN360 354 PRINT" [201][160]KNOW A PERFECT SCORE WHEN [201] SEE 355 [153]"ONE! (null)OU ARE DEFINITELY READY FOR 356 PRINT"NEXT ISSUE'S LESSON!":GOTO400 360 IFSC%<4THEN370 361 PRINT" [217]OU DID RATHER WELL! [201] SUGGEST YOU 362 [153]"OBTAIN A COPY OF LEN(null)(null)ATN(null) 0.14 (IF YOU 363 PRINT"DO NOT HAVE ONE ALREADY) AND PRACTICE 364 [153]"THE CONCEPTS TAUGHT THIS LESSON. (null)OU 365 PRINT"WILL THEN BE READY FOR NEXT ISSUE'S 366 [153]"LESSON.":[137]400 370 [153]" (null)OU DO NOT SEEM TO HAVE CAUGHT ON 371 PRINT"TO MANY OF THE CONCEPTS PRESENTED THIS 372 [153]"LESSON. (null)E-TAKE THIS TUTORIAL, THEN":[137]362 400 [153]VT$(15)"CLR (null)RESS SPACE BAR TO RETURN TO (null)OADSTAR! ":[141]1300:[151]198,.:[146]198,1 401 [151]198,.:[141]1400:[151]V[170]33,.:[153]"LOADSTOPLOAD"Q$"HELLO"Q$",8":[153]"RUN 402 PRINT"[210]ETURNING TO MAIN MENU . . .[144]"; 403 POKE631,13:POKE632,13:POKE198,2:END: 999 END: 1000 POKEV+33,1:PRINT"[147] [195][207][205][193][204][160]0.14 [212]UTORIAL [201]NSTALLMENT #2" 1005 PRINT"[144][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";:FORI=1TO12 1010 PRINT"[221] [221]";:NEXT: 1015 PRINT"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189] 1020 [153]VTAB$(14):[129]I[178]1[164]9:[153]" "; 1025 [130]:[141]1050 1030 [129]I[178]217[164]242:[151]I,[194](I)[176]128:[130]: 1035 [151]1020,2:[151]1021,13:[151]1022,1:[151]1023,38:[142]: 1050 [153]VT$(24)" WAIT"; 1055 [151]2023,160:[151]56295,6:[142]: 1100 [141]1160 1110 [153]VT$(Y%[171]1):[153][163]X%);:[142]: 1150 X%[178]SX%:Y%[178]SY%:[137]1110 1160 SX%[178][194](211):SY%[178][194](214):[142]: 1200 [141]1300 1205 [153]VT$(14):[153][163]3)"FOR (null)RESS SPACE BAR FOR NEXT PAGE. " 1210 [151]198,.:[146]198,1:[151]198,. 1215 [153]VT$(14):[153][163]3)" " 1220 [137]1400 1300 [151]646,15:[146]R,C:[146]R,C:[158]CL:[151]646,12:[146]R,C:[146]R,C:[158]CL 1305 [151]646,11:[146]R,C:[146]R,C:[158]CL:[151]646,.:[146]R,C:[146]R,C:[158]CL:[142]: 1400 [151]646,11:[146]R,C:[146]R,C:[158]CL:[151]646,12:[146]R,C:[146]R,C:[158]CL 1405 [151]646,15:[146]R,C:[146]R,C:[158]CL:[146]R,C:[146]R,C:[158]WI:[142]: 1500 [141]1110:F%[178][171]1:L%[178][194](209)[170]256[172][194](210)[170][194](211):C%[178][194](L%) 1505 [151]L%,[171]F%[172]([194](L%)[175]127)[171]([168]F%)[172]([194](L%)[176]128):F%[178][168]F% 1510 [129]F[178]1[164]48:[161]K$:[139]K$[178]""[167][130]:[137]1505 1512 [139]K$[178]"CLOSE"[167]K$[178]" ":[143] SHIFT-SPACE TO SPACE! 1515 F[178]256:[130]:[151]L%,C%:[139]K$[177]"@"[175]K$[179]"["[167]K$[178][199]([198](K$)[170]128) 1520 [142]: 1600 AX%[178]X%:AY%[178]Y% 1605 [129]A[178]1[164][195](A$) 1606 [141]1500:[139]K$[178][202](A$,A,1)[167][153]""K$;:X%[178]X%[170]1:[130]:[142]: 1607 [139]K$[178][199](13)[167]1606 1610 E[178]A:E$[178][202](A$,E,1):A[178]256:[130]: 1615 [153]"";:[151]212,1:[151]216,1:[153]K$;:[151]212,.:[151]216,.:[141]1150 1620 [151]V[170]32,2:[153]"(null)(null)(null)(null)! (null)OU MISSED THE DEF "E$"  KEY!":[141]1900:[141]1150 1625 [151]V[170]32,5:[153]"(null)OW PRESS THE PRINT RIGHT$(null)(null)(null)-STR$VAL(null)  KEY ONCE: ":X%[178]AX%[170]E:Y%[178]AY% 1630 [141]1500:[139]K$[179][177]""[167]1630 1635 [141]1150:[151]V[170]32,14:[153]"CONT(null)OW FINISH TYPING!WAIT " 1640 AX%[178]AX%[170]E[171]1:X%[178]AX%:Y%[178]AY%:[142]: 1700 [151]1020,16:[151]1021,24:[151]1022,.:[151]1023,39 1705 [158]SU:[141]1050:X%[178].:Y%[178]24:[137]1110: 1800 [141]1160 1805 X%[178].:Y%[178]24:[141]1500:[139]K$[179][177]A$[175]K$[179][177]W1$[175]K$[179][177]W2$[175]K$[179][177]W3$[167]1805 1810 [141]1035:[141]1150:[153]: 1815 [139]K$[178]A$[167][153]"LEN(null)(null)(null)VALLEN(null)!WAITSTOP ";:SC%[178]SC%[170]1:[142]: 1820 [153]"(null)ORRY.WAITSTOP ";:[142]: 1900 [129]P[178]1[164]2048:[130]:[142]: